home *** CD-ROM | disk | FTP | other *** search
/ Sound Library 2000 / Sound Library 2000 - Wayzata Technology (1995).iso / pc / other / sound_li.bra / background_5585.xml < prev    next >
Extensible Markup Language  |  1995-10-04  |  15KB  |  265 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>5585</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_6067.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3295.css" />
  11.     <part>
  12.         <id>14</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <true /> </dontWrap>
  16.         <dontSearch> <true /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <true /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <false /> </lockText>
  21.         <rect>
  22.             <left>336</left>
  23.             <top>222</top>
  24.             <right>471</right>
  25.             <bottom>253</bottom>
  26.         </rect>
  27.         <style>scrolling</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <true /> </showLines>
  30.         <wideMargins> <true /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>left</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <textHeight>16</textHeight>
  40.         <name>Path_Info</name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>3</id>
  45.         <type>button</type>
  46.         <visible> <true /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>26</left>
  55.             <top>213</top>
  56.             <right>164</right>
  57.             <bottom>260</bottom>
  58.         </rect>
  59.         <style>roundrect</style>
  60.         <showName> <true /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <true /> </autoHighlight>
  63.         <sharedHighlight> <false /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>26665</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>Main Menu</name>
  72.         <script>on mouseUpvisual effect dissolve fastgo to card "MainMenu"end mouseUp</script>
  73.     </part>
  74.     <part>
  75.         <id>8</id>
  76.         <type>button</type>
  77.         <visible> <true /> </visible>
  78.         <reserved5> 0 </reserved5>
  79.         <reserved4> 0 </reserved4>
  80.         <reserved3> 0 </reserved3>
  81.         <reserved2> 0 </reserved2>
  82.         <reserved1> 0 </reserved1>
  83.         <enabled> <true /> </enabled>
  84.         <rect>
  85.             <left>11</left>
  86.             <top>317</top>
  87.             <right>53</right>
  88.             <bottom>337</bottom>
  89.         </rect>
  90.         <style>transparent</style>
  91.         <showName> <false /> </showName>
  92.         <highlight> <false /> </highlight>
  93.         <autoHighlight> <true /> </autoHighlight>
  94.         <sharedHighlight> <true /> </sharedHighlight>
  95.         <family>0</family>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>1016</icon>
  98.         <textAlign>center</textAlign>
  99.         <font>Chicago</font>
  100.         <textSize>12</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <name></name>
  103.         <script>on mouseUpvisual effect scroll leftgo previous cardend mouseUp</script>
  104.     </part>
  105.     <part>
  106.         <id>9</id>
  107.         <type>field</type>
  108.         <visible> <true /> </visible>
  109.         <dontWrap> <true /> </dontWrap>
  110.         <dontSearch> <false /> </dontSearch>
  111.         <sharedText> <false /> </sharedText>
  112.         <fixedLineHeight> <true /> </fixedLineHeight>
  113.         <autoTab> <false /> </autoTab>
  114.         <lockText> <true /> </lockText>
  115.         <rect>
  116.             <left>183</left>
  117.             <top>76</top>
  118.             <right>483</right>
  119.             <bottom>258</bottom>
  120.         </rect>
  121.         <style>scrolling</style>
  122.         <autoSelect> <false /> </autoSelect>
  123.         <showLines> <true /> </showLines>
  124.         <wideMargins> <false /> </wideMargins>
  125.         <multipleLines> <false /> </multipleLines>
  126.         <reservedFamily> 0 </reservedFamily>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>left</textAlign>
  130.         <font>Monaco</font>
  131.         <textSize>9</textSize>
  132.         <textStyle>plain</textStyle>
  133.         <textHeight>12</textHeight>
  134.         <name>Displayed_Sounds</name>
  135.         <script>on mousedownget handleSelection()end mousedown</script>
  136.     </part>
  137.     <part>
  138.         <id>12</id>
  139.         <type>button</type>
  140.         <visible> <true /> </visible>
  141.         <reserved5> 0 </reserved5>
  142.         <reserved4> 0 </reserved4>
  143.         <reserved3> 0 </reserved3>
  144.         <reserved2> 0 </reserved2>
  145.         <reserved1> 0 </reserved1>
  146.         <enabled> <true /> </enabled>
  147.         <rect>
  148.             <left>26</left>
  149.             <top>142</top>
  150.             <right>89</right>
  151.             <bottom>200</bottom>
  152.         </rect>
  153.         <style>roundrect</style>
  154.         <showName> <true /> </showName>
  155.         <highlight> <false /> </highlight>
  156.         <autoHighlight> <true /> </autoHighlight>
  157.         <sharedHighlight> <false /> </sharedHighlight>
  158.         <family>0</family>
  159.         <titleWidth>0</titleWidth>
  160.         <icon>27056</icon>
  161.         <textAlign>center</textAlign>
  162.         <font>Chicago</font>
  163.         <textSize>12</textSize>
  164.         <textStyle>plain</textStyle>
  165.         <name>Copy...</name>
  166.         <script>on mouseUpcopySoundend mouseUp</script>
  167.     </part>
  168.     <part>
  169.         <id>20</id>
  170.         <type>button</type>
  171.         <visible> <true /> </visible>
  172.         <reserved5> 0 </reserved5>
  173.         <reserved4> 0 </reserved4>
  174.         <reserved3> 0 </reserved3>
  175.         <reserved2> 0 </reserved2>
  176.         <reserved1> 0 </reserved1>
  177.         <enabled> <true /> </enabled>
  178.         <rect>
  179.             <left>29</left>
  180.             <top>77</top>
  181.             <right>91</right>
  182.             <bottom>133</bottom>
  183.         </rect>
  184.         <style>roundrect</style>
  185.         <showName> <true /> </showName>
  186.         <highlight> <false /> </highlight>
  187.         <autoHighlight> <true /> </autoHighlight>
  188.         <sharedHighlight> <false /> </sharedHighlight>
  189.         <family>0</family>
  190.         <titleWidth>0</titleWidth>
  191.         <icon>28654</icon>
  192.         <textAlign>center</textAlign>
  193.         <font>Chicago</font>
  194.         <textSize>12</textSize>
  195.         <textStyle>plain</textStyle>
  196.         <name>Find...</name>
  197.         <script>on mouseUpfindGlobalStringend mouseUp</script>
  198.     </part>
  199.     <part>
  200.         <id>26</id>
  201.         <type>button</type>
  202.         <visible> <true /> </visible>
  203.         <reserved5> 0 </reserved5>
  204.         <reserved4> 0 </reserved4>
  205.         <reserved3> 0 </reserved3>
  206.         <reserved2> 0 </reserved2>
  207.         <reserved1> 0 </reserved1>
  208.         <enabled> <true /> </enabled>
  209.         <rect>
  210.             <left>100</left>
  211.             <top>76</top>
  212.             <right>165</right>
  213.             <bottom>133</bottom>
  214.         </rect>
  215.         <style>roundrect</style>
  216.         <showName> <true /> </showName>
  217.         <highlight> <false /> </highlight>
  218.         <autoHighlight> <true /> </autoHighlight>
  219.         <sharedHighlight> <true /> </sharedHighlight>
  220.         <family>0</family>
  221.         <titleWidth>-1</titleWidth>
  222.         <icon>-16491</icon>
  223.         <textAlign>center</textAlign>
  224.         <font>Chicago</font>
  225.         <textSize>12</textSize>
  226.         <textStyle>plain</textStyle>
  227.         <name>Play All</name>
  228.         <script>on mouseUpautoPlayend mouseUp</script>
  229.     </part>
  230.     <part>
  231.         <id>27</id>
  232.         <type>field</type>
  233.         <visible> <true /> </visible>
  234.         <dontWrap> <true /> </dontWrap>
  235.         <dontSearch> <false /> </dontSearch>
  236.         <sharedText> <false /> </sharedText>
  237.         <fixedLineHeight> <false /> </fixedLineHeight>
  238.         <autoTab> <false /> </autoTab>
  239.         <lockText> <true /> </lockText>
  240.         <rect>
  241.             <left>1</left>
  242.             <top>286</top>
  243.             <right>198</right>
  244.             <bottom>306</bottom>
  245.         </rect>
  246.         <style>shadow</style>
  247.         <autoSelect> <false /> </autoSelect>
  248.         <showLines> <false /> </showLines>
  249.         <wideMargins> <false /> </wideMargins>
  250.         <multipleLines> <false /> </multipleLines>
  251.         <reservedFamily> 0 </reservedFamily>
  252.         <titleWidth>0</titleWidth>
  253.         <icon>0</icon>
  254.         <textAlign>center</textAlign>
  255.         <font>Chicago</font>
  256.         <textSize>12</textSize>
  257.         <textStyle>plain</textStyle>
  258.         <textHeight>16</textHeight>
  259.         <name>Sound_Name</name>
  260.         <script></script>
  261.     </part>
  262.     <name>background</name>
  263.     <script>---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Categories background script-- Handles sound selection and other actions within background scope.  The handlers for all-- background fields and buttons reside here for convenience.---- Saturn Systems, ┬⌐ 1991---- November 19, 1991--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------function handleSelection-- Handle the text selection within the field "Displayed_Sounds"global pathNameglobal resNameput the clickLine into myClickLineselect myClickLinewait until the mouse is upif the mouseLoc is not within rect of field Displayed_Sounds thenselect emptyexit handleSelectionend ifput word 2 of myClickLine into choiceNumberselect line choiceNumber of field Displayed_Soundsput item 1 of line choiceNumber of field Displayed_Sounds into resName  -- Sound nameput item 1 of line 1 of field Path_info & resName into pathName         -- Path nameplayend handleSelection------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on copytoClipglobal pathNameglobal resNameif resName is "" thenput "Please select a sound" into alertStranswer alertStr with "OK"exit copytoClipend if-- SAVE TO CLIPBOARD HEREsndToScrap( pathName )if the result is not empty thenput the result&": "&resName into errStranswer errStr with "OK"end ifend copytoClipon copytoResFileglobal pathNameglobal resNameask file "Save Sound as:" with resName              -- Present standard file dialogput the result into resultCodeif resultCode is empty thenput it into outFNameset the cursor to "watch"put copyFile(pathName, outFName) into resultCode  -- Save to fileif resultCode is not 0 thenif resultCode is not -48 thenif resultCode is -43 thenput "File  '"&pathName&"' not found" into errStranswer errStr with "OK"elseOSErr resultCodeend ifend ifend ifend ifend copytoResFileon copytoFileglobal pathNameglobal resNameask file "Save Sound as:" with resName              -- Present standard file dialogput the result into resultCodeif resultCode is empty thenput it into outFNameset the cursor to "watch"put sndToFileFN( pathName,outFName ) into resultif the result is not empty thenput the result&": "&resName into errStranswer errStr with "OK"end ifend ifend copytoFileon copySound-- Handles the command COPY...  Currently, this saves only to an external file.global pathNameglobal resNameif resName is "" thenput "Please select a sound" into alertStranswer alertStr with "OK"exit copySoundend ifanswer "Save Sound in Format : " with "Resource" or "File" or "Cancel"put it into saveOptionif saveOption is not "Cancel" thenif saveOption is "Resource" thencopytoResFileelsecopytoFileend ifend ifend copySound-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- on findLocalString-- -- This find method has its domain as the current card.  The global find string is retained,-- -- however.  This is identical to the global find, except that only this card is searched.-- global findString-- Ask "Please enter a string for which to search: " with findString-- if the result is not "Cancel" then-- put it into findString-- Put "Find Next" into ansFindAgain-- repeat while ansFindAgain is "Find Next"-- if findString is not Empty then-- find string findString in BG field "Displayed_Sounds" in marked cards-- if the result is "not found" then-- Answer  "'"&findString&"' was not Found" With "OK"-- put it into ansFindAgain  -- OK forces Failure of Loop-- else-- Answer  "Find '"&findString&"' Again?" With┬¼-- "Done" or "Find Next"-- put it into ansFindAgain   -- Done forces Failure of Loop-- end if-- else-- put "null" into ansFindAgain-- end if-- end repeat-- end if-- end findLocalString------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on play-- Plays the selected soundglobal pathNameglobal resName-- put pathname && resNameif resName is "" then                          -- If no file is selected...put "Please select a sound" into alertStranswer alertStr with "OK"exit playend ifset the cursor to "busy"                       -- Set the "busy" cursorplaySound pathName, resName                    -- Play the sound (XCMD)if the result is not empty thenput the result&"(more memory) : "&resName into errStranswer errStr with "OK"end ifend play------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on autoPlay-- Plays the sounds within this category in sequential order until the user clicks the mouseput "" into BG field "Sound_Name"set visible of BG field Sound_Name to trueput the number of lines of BG field "Displayed_Sounds" into numLinesrepeat until the mouseClickput 1 into SNrepeat for numLines timesif the mouseClick thenset visible of BG field Sound_Name to falseexit autoPlayend ifput (item 1 of line SN of BG field "Displayed_Sounds") into resNameput (item 1 of line 1 of BG field "Path_Info") & resName into pathNameput resName into BG field Sound_NameplaySound pathName, resNameif the result is not empty thenput the result&": "&resName into errStranswer errStr with "OK"end ifadd 1 to SNend repeatend repeatset visible of BG field Sound_Name to falseend autoPlay------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on openCardglobal pathNameglobal resNameunmark all cards                                     -- Need to mark only this card formark this card                                       -- the local FIND command-- put short name of this card into background field Card_Nameset scroll of background field Displayed_Sounds to 0put "" into resNamepass openCardend openCard------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on closeCardpass closeCardend closeCard------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</script>
  264. </background>
  265.